home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / coax-3.bas < prev    next >
BASIC Source File  |  1994-06-23  |  1KB  |  43 lines
  1. 5 PRINT "DETERMINATION OF FACTORS RELATED TO LINE LOSS AND MATCHING."
  2. 10 PRINT "WHAT IS THE INPUT POWER (PI)?"
  3. 11 INPUT "ENTER";PI
  4. 15 PRINT "WHAT IS THE IMPEDANCE (ZO) OF THE LINE?"
  5. 20 INPUT "ENTER";ZO
  6. 25 PRINT "WHAT IS THE MATCHED LINE LOSS (D) IN DB PER 100 FEET?"
  7. 30 INPUT "ENTER";D
  8. 35 PRINT "WHAT IS THE LENGTH (L) OF THE LINE IN FEET?"
  9. 40 INPUT "ENTER";L
  10. 45 DB=L*D/100
  11. 50 PRINT "WHAT IS THE RESISTIVE COMPONENT (R) OF THE LOAD?"
  12. 55 INPUT "ENTER";R
  13. 60 PRINT "WHAT IS THE REACTIVE COMPONENT (X) OF THE LOAD?"
  14. 65 INPUT "ENTER";X
  15. 75 G=((R+ZO)^2+X^2)^.5
  16. 80 H=((R-ZO)^2+X^2)^.5
  17. 85 SO=(G+H)/(G-H)
  18. 90 EM=(PI*ZO*SO)^.5
  19. 95 B=10^(DB/10)
  20. 100 C=(SO-1)/(SO+1)
  21. 105 SI=(B+C)/(B-C)
  22. 110 A=(SI+1)/(SI-1)
  23. 115 SL=(A+B)/(A-B)
  24. 120 LT=4.343*LOG((B^2-C^2)/(B*(1-C^2)))
  25. 125 LM=4.343*LOG(A*C)
  26. 130 LA=LT-LM
  27. 190 PRINT
  28. 195 PRINT "                ***ANSWERS***"
  29. 196 PRINT
  30. 200 PRINT PI "INPUT POWER (PI)."
  31. 205 PRINT ZO "LINE IMPEDANCE (Z0)."
  32. 210 PRINT L "LENGTH (L) OF LINE IN FEET."
  33. 215 PRINT D "MATCHED LINE LOSS (D) IN DB PER 100 FEET."
  34. 220 PRINT DB "MATCHED LINE LOSS (DB) OF LINE."
  35. 225 PRINT R "RESISTIVE COMPONENT (R) OF LOAD."
  36. 230 PRINT X "REACTANCE COMPONENT (X) OF LOAD."
  37. 240 PRINT EM "MAXIMUM VOLTAGE (EM) ON LINE."
  38. 245 PRINT SI "SWR AT INPUT (SI)."
  39. 250 PRINT SL "SWR AT LOAD (SL)."
  40. 255 PRINT LT "TOTAL LOSS (LT) IN DB."
  41. 256 PRINT LM "MATCHED LINE LOSS (LM) IN DB."
  42. 260 PRINT LA "ADDITIOINAL LOSS (LA) DUE TO MISMATCH."
  43.